﻿Public Class UsuarioNegocio

    Public Function insertar(ByVal idUsuario As String, ByVal clave As String, ByVal correo As String, ByVal telefono As Integer, ByVal direccion As String, ByVal fecha_instalacion As Date, ByVal nombre As String, ByVal apellido As String, ByVal estado As String, ByVal tipo_user As String, ByVal localidad As String, ByVal provincia As String) As Usuario

        Dim omen As New Usuario()
        omen.idUsuario = idUsuario
        omen.clave = clave
        omen.correo = correo
        omen.telefono = telefono
        omen.direccion = direccion
        omen.fecha_instalacion = fecha_instalacion
        omen.nombre = nombre
        omen.apellido = apellido
        omen.estado = estado
        omen.tipo_user = tipo_user
        omen.localidad = localidad
        omen.provincia = provincia

        Dim dao As New UsuarioDAO
        Return dao.insertar(omen)
    End Function


    Public Function listar() As Collection
        Dim dao As New UsuarioDAO
        Return dao.listar()
    End Function

    Public Function BuscarporNombre(ByVal nombre As String, ByVal apellido As String, ByVal tipo_user As String) As Collection

        Dim dao As New UsuarioDAO

        Return dao.buscarPorNombre(nombre, apellido, tipo_user)

    End Function

    Public Sub actualizar(ByVal idUsuario As String, ByVal clave As String, ByVal correo As String, ByVal telefono As Integer, ByVal direccion As String, ByVal fecha_instalacion As Date, ByVal nombre As String, ByVal apellido As String, ByVal estado As String, ByVal tipo_user As String, ByVal localidad As String, ByVal provincia As String)

        Dim omen As New Usuario()
        omen.idusuario = idUsuario
        omen.clave = nombre
        omen.correo = correo
        omen.telefono = telefono
        omen.direccion = direccion
        omen.fecha_instalacion = fecha_instalacion
        omen.nombre = nombre
        omen.apellido = apellido
        omen.estado = estado
        omen.tipo_user = tipo_user
        omen.localidad = localidad
        omen.provincia = provincia


        Dim dao As New UsuarioDAO
        dao.actualizar(omen)

    End Sub

    Public Function Login(ByVal idUusuario As String, ByVal clave As String) As Usuario

        Dim dao As New UsuarioDAO

        Return dao.Login(idUusuario, clave)

    End Function

End Class 
